home *** CD-ROM | disk | FTP | other *** search
/ Graphics Plus / Graphics Plus.iso / general / fractal / kaos.lha / modellib / default_model_init.c < prev    next >
Encoding:
C/C++ Source or Header  |  1990-01-16  |  1.8 KB  |  56 lines
  1. /*
  2. ### Initialize all default parameters of a dynamical system to be installed ###
  3.  
  4. */
  5.  
  6. void default_model_init()
  7. {
  8.     int i;
  9.     extern int var_dim,param_dim,full_dim,func_dim;
  10.     extern int mapping_on,inverse_on,fderiv_on,enable_polar,enable_period;
  11.     extern double *param,*param_min,*param_max,*func,*func_min,*func_max;
  12.     extern double *var_i,*var_polar_i,*var_min,*var_max,*var_polar_min,*var_polar_max;
  13.     extern double *period_len,pi,*xoffset,*int_yscal;
  14.     extern char *title_label,**var_label,**var_polar_label,**param_label,**func_label;
  15.  
  16.     /*periodicity of phase space variables (DIM=var_dim)*/
  17.     for(i=0;i<full_dim+param_dim;i++) period_len[i] =0;
  18.     /* primary phase space variable label (DIM=var_dim)*/
  19.     for(i=0;i<var_dim;i++) var_label[i] = "~";
  20.     /* secondary phase space variable label (DIM=var_dim) */
  21.     for(i=0;i<var_dim;i++) var_polar_label[i] = "~";
  22.     /* parameter variable label (DIM=param_dim)*/
  23.     for(i=0;i<param_dim;i++) param_label[i] = "~";
  24.     /* function variable label (DIM=func_dim)*/
  25.     for(i=0;i<func_dim;i++) func_label[i] = "~";
  26.     /* starting parameter values (DIM=param_dim)*/
  27.     for(i=0;i<param_dim;i++) param[i] = 0;
  28.     /* starting primary phase space variable values (DIM=var_dim)*/
  29.     for(i=0;i<var_dim;i++) var_i[i] = 0;
  30.     /* starting seconsary phase space variable values (DIM=var_dim)*/
  31.     for(i=0;i<var_dim;i++) var_polar_i[i] = 0;
  32.     /* starting bounds of parameter window box */
  33.     for(i=0;i<param_dim;i++) {
  34.         param_min[i] = -5;
  35.         param_max[i] = 5;
  36.     }
  37.     /* starting bounds of primary phase space window box */
  38.     for(i=0;i<var_dim;i++) {
  39.         var_min[i] = -5;
  40.         var_max[i] = 5;
  41.     }
  42.     /* starting bounds of secondary phase space window box */
  43.     for(i=0;i<var_dim;i++) {
  44.         var_polar_min[i] = -5;
  45.         var_polar_max[i] = 5;
  46.     }
  47.  
  48.     /* offset for a periodic orbit */
  49.     for(i=0;i<var_dim;i++)
  50.         xoffset[i]=0;
  51.  
  52.     /* rescaling factor for QC integrators */
  53.     for(i=0;i<var_dim;i++)
  54.         int_yscal[i]=1.;
  55. }
  56.